10 IFZ>0THEN1830
100 REM    MAKE STARLINE    INTRO
120 POKE53281,1:POKE53280,6:POKE646,0
140 PRINT"[147]"
160 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
180 PRINT:PRINT
200 T$="[204][207][193][196][211][212][193][210] IS A GRAND [193]MERICAN":GOSUB1880
220 T$="EXPERIMENT, BUT [204][207][193][196][211][212][193][210] CAN BE":GOSUB1880
240 T$="NO MORE OR NO LESS THAN YOU":GOSUB1880
260 T$="MAKE IT!":GOSUB1880
280 T$="[195]OMMODORE-64 (AND 128) OWNERS":GOSUB1880
300 T$="EVERYWHERE ARE BOUND TOGETHER BY":GOSUB1880
320 T$="THE OWNERSHIP OF A WONDERFUL PIECE":GOSUB1880
340 T$="OF HARDWARE!":GOSUB1880
360 GOSUB1940
380 PRINT"[147]":T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
400 T$="[204][207][193][196][211][212][193][210] PROVIDES YOU WITH A MECHANISM":GOSUB1880
420 T$="THAT LINKS YOU TO THE REST OF THE":GOSUB1880
421 T$="[195]OMMODORE [195]OSMOS.":GOSUB1880
422 T$="[196]ON'T KEEP YOUR [195]OMMODORE":GOSUB1880
440 T$="TREASURES A SECRET FROM YOUR FELLOW":GOSUB1880
460 T$="SPACE TRAVELERS.  [207]THERS WHO ARE":GOSUB1880
480 T$="JUST BEGINNING THEIR JOURNEY WILL":GOSUB1880
500 T$="PLACE GREAT VALUE ON YOUR WISDOM":GOSUB1880
502 T$="AND KNOWLEDGE!":GOSUB1880
504 T$="[200]ERE IS HOW YOU SHARE...":GOSUB1880:GOSUB1940
520 PRINT"[147]"
540 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
560 PRINT:PRINT
580 T$="[213]SE THIS FACILITY TO CONVERT A BLANK":GOSUB1880
600 T$="DISK INTO A [204][207][193][196][211][212][193][210] FEEDBACK DISK.":GOSUB1880
620 T$="[212]HEN SEND YOUR COMMENTS, REVIEWS,":GOSUB1880
640 T$="TIPS, QUESTIONS, AND MOST OF":GOSUB1880
642 T$="ALL ... PROGRAMS ... TO [204][207][193][196][211][212][193][210]":GOSUB1880
660 T$="ON YOUR DISK, READY FOR PUBLICATION.":GOSUB1880
680 T$="[217]OUR DISK WILL BE RETURNED TO YOU AND":GOSUB1880
700 T$="REMEMBER, WE PAY A $50 REWARD FOR":GOSUB1880
702 T$="PROGRAMS THAT WE USE ON [204][207][193][196][211][212][193][210]!":GOSUB1880
720 GOSUB1940
740 PRINT"[147]"
760 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
800 T$="[204][207][193][196][211][212][193][210] HAS PROVIDED A 'PEEL-OFF'":GOSUB1880
820 T$="MAILING LABEL THAT PAYS FOR RETURN":GOSUB1880
840 T$="POSTAGE.  [202]UST STICK THE LABEL ON OUR":GOSUB1880
860 T$="CARDBOARD MAILER, PUT YOUR FEEDBACK":GOSUB1880
880 T$="DISK IN THE MAILER, AND POP IT IN":GOSUB1880
900 T$="THE MAIL.  [201]T WILL COME RIGHT TO US.":GOSUB1880
920 T$="[206]O STAMPS REQUIRED!":GOSUB1880
930 T$="[194]E SURE TO INCLUDE YOUR RETURN":GOSUB1880
940 T$="ADDRESS SO WE CAN SEND YOUR DISK":GOSUB1880
950 T$="BACK TO YOU.":GOSUB1880
980 GOSUB1940
1360 :
1380 :
1400 :
1420 :
1440 :
1460 :
1480 REM  WANT TO MAKE ONE?
1500 PRINT"[147]"
1520 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
1540 PRINT""
1560 PRINT"  1.  [205]AKE A [198][197][197][196][194][193][195][203] DISK."
1561 PRINT"      (FROM A BLANK DISK)":PRINT
1562 PRINT"  2.  [210]ETURN TO [204][207][193][196][211][212][193][210]"
1563 PRINT"      ([201]'LL EXPERIMENT WITH THIS LATER)"
1564 PRINT"[215]HICH?"             
1580 POKE198,0:WAIT198,1:GETK$
1600 IFK$<>"1"ANDK$<>"2"THEN1580
1620 IFK$="2"THEN2040
1640 PRINT"[147]"
1660 T$="**** [204][207][193][196][211][212][193][210] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
1680 PRINT:PRINT"[147]"
1700 PRINT"  [207].[203]. [201] WILL TELL YOU WHEN TO REMOVE":PRINT
1720 PRINT"   YOUR [204][207][193][196][211][212][193][210] DISK AND INSERT A":PRINT
1722 PRINTSPC(13)"BLANK DISK."
1800 PRINT"             [208]LEASE WAIT....."
1820 PRINT"            [204]OADING SOME FILES....     "
1822 PRINT" [193]PPROXIMATE LOADING TIME IS 70 SECONDS."
1830 IFZ=0THENZ=1:LOAD"ROUTINES",8,1
1832 IFZ=1THENZ=2:LOAD"SLKEYES",8,1
1840 PRINT"LOAD"CHR$(34)"F.B. MAKER.2"CHR$(34)",8":PRINT"RUN"
1860 POKE631,13:POKE632,13:POKE198,2:END
1880 REM   CENTERING
1900 X=20-LEN(T$)/2:PRINTTAB(X)T$:PRINT
1920 RETURN
1940 REM    WAIT FOR KEYPRESS
1960 POKE783,PEEK(783)AND254
1980 POKE781,23:POKE782,13:SYS65520:PRINT"<PRESS A KEY>"
2000 POKE198,0:WAIT198,1:GETK$
2020 RETURN
2040 REM   CONNNECT BACK TO HELLO
2060 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
2080 POKE631,13:POKE632,13:POKE198,2:END